"! A single ASCII character value "
Magnitude subclass: Char [
| value |
<category: 'Library-Text'>
"! Info:
Return true if aChar has a larger ascii value than this character 

Examples:
"
< aChar [
^ value < aChar value
]

"! Info:
Return true if aChar has the same ascii value as this character 

Examples:
"
= aChar [
^ value = aChar value
]

"! Info:
Return this character as a string 

Examples:
"
asString [
^ (String new: 1) at: 1 put: self
]

"! Info:
Return true if this character is a digit 

Examples:
"
isDigit [
^ self between: $0 and: $9 ]

"! Info:
Print out this charater 

Examples:
"
print [
<charPrint value>
]

"! Info:
Return a string representation of this character 

Examples:
"
printString [
^ String new: 2; 
         at: 1 put: $$ ; 
         at: 2 put: self
]

"! Info:
Return our ascii value as an integer 

Examples:
"
value [
^ value
]

]

"! Class methods for Char "
MetaMagnitude subclass: MetaChar [
<category: 'Library-Text'>
"! Info:
Create a new character for ASCII value 

Examples:
"
new: value [
^ self in: self new at: 1 put: value
]

"! Info:
Return the newline character 

Examples:
"
newline [
^ self new: 10
]

]

